home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / coin flip 3.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  395b  |  20 lines
  1. 100 REM***COIN FLIPPER #3
  2. 200 REM***FIND OUT HOW MANY FLIPS
  3. 210 PRINT"[147]";
  4. 215 PRINT
  5. 220 INPUT "HOW MANY COIN FLIPS";N
  6. 230 PRINT
  7. 300 REM***T = TAILS COUNTER H = HEADS COUNTER
  8. 310 T = 0
  9. 320 H = 0
  10. 400 REM***FLIP COIN N TIMES, COUNT TAILS AND HEADS
  11. 410 FOR K = 1 TO N
  12. 420 COIN = INT(2*RND(1))
  13. 430 IF COIN = 0 THEN T=T+1
  14. 440 IF COIN = 1 THEN H=H+1
  15. 450 NEXT K
  16. 460 PRINT
  17. 500 REM***PRINT RESULTS OF N FLIPS
  18. 510 PRINT"I GOT"H"HEADS AND"T"TAILS."
  19. 999 END
  20.